﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class MonederoeFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As MonederoeBE
        Dim tmpMonederoe As MonederoeBE = New MonederoeBE()
        Try
            With tmpMonederoe
                .Clave = convertDTFromDb.ConvertString(dr.Item("Clave"))
                .Efectivo = convertDTFromDb.ConvertDecimal(dr.Item("Efectivo"))
                .IdEmpresa = convertDTFromDb.ConvertShort(dr.Item("IdEmpresa"))
                .TB = convertDTFromDb.ConvertDecimal(dr.Item("TB"))
            End With
            Return tmpMonederoe
        Catch ex As Exception
            Throw
        Finally
            tmpMonederoe = Nothing
        End Try
    End Function
End Class
